100 POKE53280,0:POKE53281,0:PRINT"[147]	"
110 GOSUB 180
120 SYS57812"JUKEBOX.O",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
130 :
140 POKE 16387,8  :REM DEVICE NUMBER
150 POKE 16388,64 :REM COLOR PREFERENCE
160 PRINT "[147]":SYS16384:GOTO270
170 :
180 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
190 FORI=1TO4:PRINT"                                      ":NEXT
200 PRINT"       [208]UBLISHED ON [204][207][193][196][211][212][193][210] #81      "
210 PRINT"      sUBSCRIPTIONS 1-800-831-2694    "
220 PRINT"           [193]LL [210]IGHTS [210]ESERVED        "
225 PRINT"                                      "
230 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
240 AU$="1890'[211] [202][213][203][197][194][207][216]":POKE214,16:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
250 AU$="[194]Y [193]LAN [194]EGGEROW   (C) 1991":POKE214,18:PRINT
260 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN
270 PRINT"[147]"
275 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
280 IF ER<>63 THEN PRINT"[147]":END
290 A$="HELLO CONNECT":Q$=CHR$(34)
300 PRINT"[158]LOAD"Q$A$Q$",8"
310 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:JUKEBOX BOOT":CLOSE15:SAVE"JUKEBOX BOOT",8:END